
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports System.Text
Imports System.Data
Namespace WorkFlow.BBL
Public Class VOrganizationBBL
        Public Function InsertVOrg(ByVal VOrganizationName As String, ByVal OrganizationID As String, ByVal Active As String, ByVal OrganizationType As String, ByVal EstablishDate As String, ByVal MOIOrganizationType As String, ByVal dbName As String) As Integer
            Dim db1 As WorkFlow.DAO.VOrganizationDAO = New WorkFlow.DAO.VOrganizationDAO(dbName)
            db1.InsertVOrg(VOrganizationName, OrganizationID, Active, OrganizationType, EstablishDate, MOIOrganizationType)
        End Function
        Public Sub UpdateVOrg(ByVal VOrganizationName As String, ByVal Active As String, ByVal EstablishDate As String, ByVal MOIOrganizationType As String, ByVal VOrganizationID As String, ByVal dbName As String)
            Dim db1 As WorkFlow.DAO.VOrganizationDAO = New WorkFlow.DAO.VOrganizationDAO(dbName)
            db1.UpdateVOrg(VOrganizationName, Active, EstablishDate, MOIOrganizationType, VOrganizationID)
        End Sub
        Public Function GetVOrganization(ByVal VOrganizationID As String, ByVal dbName As String) As DataTable
            Dim db1 As WorkFlow.DAO.VOrganizationDAO = New WorkFlow.DAO.VOrganizationDAO(dbName)
            Return db1.GetVOrganization(VOrganizationID)
        End Function
        Public Function GetDDLRegion(ByVal dbName As String) As DataTable
            Dim db1 As WorkFlow.DAO.VOrganizationDAO = New WorkFlow.DAO.VOrganizationDAO(dbName)
            Return db1.GetDDLRegion()
        End Function
        Public Sub ChangeActiveStatus(ByVal status As String, ByVal VOrganizationID As String, ByVal dbName As String)
            Dim db1 As WorkFlow.DAO.VOrganizationDAO = New WorkFlow.DAO.VOrganizationDAO(dbName)
            db1.ChangeActiveStatus(status, VOrganizationID)
        End Sub
        Public Function GetAllVOrganization(ByVal dbName As String) As DataTable
            Dim db1 As WorkFlow.DAO.VOrganizationDAO = New WorkFlow.DAO.VOrganizationDAO(dbName)

            Return db1.GetAllVOrganization()
        End Function
    End Class
End Namespace
